FM Towns: Free Software Collection 11/FM Towns Free Software Collection 11.iso/t_os/tool/artemis1/src/rotate.c

C/C++ Source or Header | 1993-10-11 | 4.3 KB | 187 lines

/*
    ARTemis (Graphic Editor for FM-TOWNS)
    (c) MATSUUCHI Ryosuke 1992,1993

    rotate.c

    ｢回転コピー｣コマンド
*/

#include <stdio.h>
#include <math.h>
#include "ge.h"
#include "imageman.h"
#include "dispman.h"
#include "mask.h"

static int input_angle(int ax0, int ay0, int *sin_, int *cos_)
// 返値: 0=正常終了 -1=キャンセル
{
    void drawcsr(int msx,int msy)
    {
        int tx,ty;
        tx = DMimage_getx(msx);
        ty = DMimage_gety(msy);
        MOFF;  EIMline(ax0,ay0,tx,ty,white,DrawXOR);  MON;
    }
    for(;;)
    {
        int prex,prey;
        DMdispcsr(ms.x,ms.y);
        drawcsr((prex=ms.x),(prey=ms.y));
        do
        {
            ms_get(&ms);
        } while (   ms.dx==0 && ms.dy==0 && ms.btn1==OFF && ms.btn2==OFF
                 && key_chk()==0);
        DMerasecsr();
        drawcsr(prex,prey);            // 消去
        scrollForCsr(1,1);
        if (ms.btn1==OFFON)
        {
            int tx,ty;
            tx=DMimage_getx(ms.x)-ax0, ty=DMimage_gety(ms.y)-ay0;
            if (tx == 0 && ty == 0)
                *sin_ = 0, *cos_ = 0x8000;
            else
            {
                float len;
                len = sqrt((float)(tx*tx+ty*ty));
                *sin_ = -(int)(((float)ty * 65536) / len);
                *cos_ = (int)(((float)tx * 65536) / len);
            }
            return 0;
        }
        if (ms.btn2==OFFON)
            return -1;
    }
}


static int input_dest(int bx[],int by[],int sinn,int coss,int ax0,int ay0,
                      int ax1,int ay1,int ax2,int ay2)
{
    sinn = -sinn;
    void drawcsr(int msx,int msy)
    {
        int tx,ty;
        tx = DMimage_getx(msx);
        ty = DMimage_gety(msy);
        MOFF;
        EIMline(tx+bx[0],ty+by[0],tx+bx[1],ty+by[1],white,DrawXOR);
        EIMline(tx+bx[0],ty+by[0],tx+bx[2],ty+by[2],white,DrawXOR);
        EIMline(tx+bx[1],ty+by[1],tx+bx[3],ty+by[3],white,DrawXOR);
        EIMline(tx+bx[2],ty+by[2],tx+bx[3],ty+by[3],white,DrawXOR);
        MON;
    }
    area_drawbound();
    MOFF;
    EIMline(ax1,ay1,ax2,ay2,white,DrawXOR);
    EIMline(ax1,ay2,ax2,ay1,white,DrawXOR);
    MON;
    for(;;)
    {
        int prex,prey;
        DMdispcsr(ms.x,ms.y);
        drawcsr((prex=ms.x),(prey=ms.y));
        do
        {
            ms_get(&ms);
        } while (   ms.dx==0 && ms.dy==0 && ms.btn1==OFF && ms.btn2==OFF
                 && key_chk()==0);
        DMerasecsr();
        drawcsr(prex,prey);            // 消去
        scrollForCsr(1,1);
        if (ms.btn1==OFFON)
        {
            area_drawbound();
            MOFF;
            EIMline(ax1,ay1,ax2,ay2,white,DrawXOR);
            EIMline(ax1,ay2,ax2,ay1,white,DrawXOR);
            MON;
            EIMbackup();
            int tx,ty,bx1,bx2,by1,by2,bx0,by0,x,y;
            tx=DMimage_getx(ms.x), ty=DMimage_gety(ms.y);
            bx1 = _min(tx+bx[0],tx+bx[1],tx+bx[2],tx+bx[3]);
            bx2 = _max(tx+bx[0],tx+bx[1],tx+bx[2],tx+bx[3]);
            by1 = _min(ty+by[0],ty+by[1],ty+by[2],ty+by[3]);
            by2 = _max(ty+by[0],ty+by[1],ty+by[2],ty+by[3]);
            bx0 = (bx1+bx2)/2;
            by0 = (by1+by2)/2;
            bx1 = _max(0,bx1);
            bx2 = _min(EIMgetxsize()-1,bx2);
            by1 = _max(0,by1);
            by2 = _min(EIMgetysize()-1,by2);
            for (y=by1; y<=by2; y++)
                for (x=bx1; x<=bx2; x++)
                {
                    int sx,sy;  // fixed-real
                    sx = (ax0<<16) +  coss  *(x-bx0) + sinn*(y-by0);
                    sy = (ay0<<16) + (-sinn)*(x-bx0) + coss*(y-by0);
                    if (area_chkxy2(sx>>16,sy>>16))
                        matte_pset(x,y,EIMpoint_back2(sx,sy),blkop);
                }
            return 0;
        }
        if (ms.btn2==OFFON)
        {
            area_drawbound();
            MOFF;
            EIMline(ax1,ay1,ax2,ay2,white,DrawXOR);
            EIMline(ax1,ay2,ax2,ay1,white,DrawXOR);
            MON;
            return -1;
        }
    }
}


static void commandRotate_sub(int meth)
// meth : AREA_BOX / AREA_POLYGON
{
    for (;;)
    {
retry:
        if (area_input(meth) != 0)
            break;
        EIMbackup();
        int ax1,ay1,ax2,ay2,ax0,ay0;
        int sinn,coss;  // fixed-real
        area_getboundxy(&ax1,&ay1,&ax2,&ay2);
        ax0 = (ax1 + ax2) / 2;
        ay0 = (ay1 + ay2) / 2;
angle:
        area_drawbound();
        MOFF;  EIMline(ax0,ay0,ax2,ay0,white,DrawXOR);  MON;
        int r = input_angle(ax0,ay0,&sinn,&coss);
        area_drawbound();
        MOFF;  EIMline(ax0,ay0,ax2,ay0,white,DrawXOR);  MON;
        if (r != 0)
            goto retry;
        int bx[4],by[4];
#define    ROTXY(outn, x,y) \
                (bx[outn]=(( coss*(x))>>16) + ((sinn*(y))>>16), \
                 by[outn]=((-sinn*(x))>>16) + ((coss*(y))>>16))
        ROTXY(0,ax1-ax0,ay1-ay0);
        ROTXY(1,ax2-ax0,ay1-ay0);
        ROTXY(2,ax1-ax0,ay2-ay0);
        ROTXY(3,ax2-ax0,ay2-ay0);
#undef ROTXY
        for (;;)
        {
            if (input_dest(bx,by,sinn,coss,ax0,ay0,ax1,ay1,ax2,ay2) != 0)
                goto angle;
        }
    }
}

void commandRotateBox()
{
    commandRotate_sub(AREA_BOX);
}

void commandRotatePoly()
{
    commandRotate_sub(AREA_POLYGON);
}